home *** CD-ROM | disk | FTP | other *** search
/ 1,000 Games / 1000 Games.toast / Adventure Games / Redcoder 2.0 / Fighters / Redcoder Title < prev   
Encoding:
Redcode source  |  1994-03-08  |  1.8 KB  |  88 lines  |  [TEXT/Core]
  1. ;redcode 88
  2. ;name Redcoder Title
  3. ;author Alex MacAulay
  4.  
  5. ;Draws the word 'Redcoder' in "9-point Monaco" and has two imps running above
  6. ;and below the word. The width of the core array should be the same as the
  7. ;equate variable, width, for the display to look sensible.
  8.  
  9. width    equ 127 ; set width of the core array to this value
  10. charWidth    equ 6
  11. top    equ (imp-8*width)
  12. bottom    equ (imp-2*width)
  13. nn1    equ (top+width+4)
  14. nn2    equ (top+2*width+4)
  15. nn3    equ (top+3*width+3*charWidth+4)
  16. nn4    equ (top+3*width+7*charWidth+4)
  17. nn5    equ (bottom+charWidth+4)
  18. nn6    equ (bottom+3*charWidth+4)
  19. nn7    equ (bottom+6*charWidth+4)
  20.  
  21. imp    mov 0,1
  22.  
  23. b    dat 1,1
  24. c    dat charWidth,charWidth+1
  25. x    jmp imp-y
  26.  
  27.     ; left side of R
  28. start    mov <nn1,top
  29.     add #width,-1
  30.     djn -2,#7
  31.     
  32.     ; right side of 1st & 2nd d
  33.     mov #18,@1
  34.     mov <nn2,@top+2*charWidth+4
  35.     add #width,-1
  36.     djn -3,#7
  37.     
  38.     ; top & mid of r
  39.     mov <top+3,top+2
  40.     mov <nn3,<-1
  41.     mov <top+width*3+3,top+width*3+2
  42.     mov <nn4,<-1
  43.     
  44.     ; top 3-piece of 'edcode'
  45.     mov <top+2*width+charWidth+3,top+2*width+charWidth+2
  46.     mov <nn5,<-1
  47.     add c,-2
  48.     djn -3,#6
  49.     
  50.     ;bottom 3-piece of 'edcode'
  51.     mov <bottom+charWidth+3,bottom+charWidth+2
  52.     mov <nn6,<-1
  53.     add c,-2
  54.     djn -3,#6
  55.     
  56.     mov <c,nn7
  57.     
  58.     ; side 3-piece of 'edcoder'
  59.     mov #width,@1
  60.     mov <top+3*width+charWidth,@top+4*width+charWidth
  61.     add c,-1
  62.     djn -3,#7
  63.     
  64.     ; middle of e's
  65.     mov <top+4*width+charWidth+4,top+4*width+charWidth*6+4
  66.     sub b,-1
  67.     djn -2,#4
  68.     
  69.     mov <top+4*width+4,top+5*width+4
  70.     mov <top+3*width+charWidth+4,top+3*width+6*charWidth+4
  71.     mov <bottom+4,top+3*width+4*charWidth+4
  72.     mov <top+4*width+4*charWidth+4,top+5*width+4*charWidth+4
  73.     mov <bottom+7*charWidth,top+2*width+7*charWidth
  74.     mov <top+2*width+7*charWidth+2,top+2*width+7*charWidth+3
  75.     
  76.     mov imp,imp-width*10
  77.     mov stomp,stomp-width*10
  78.     mov x,y-width*10
  79.     spl stomp-width*10,<top+3*width+7*charWidth+1
  80.     spl y
  81.     spl 2
  82.     jmp imp
  83.     jmp imp-width*10
  84. y    mov x,0
  85. stomp    jmp 0,<-2
  86.     
  87.     end start
  88.